home *** CD-ROM | disk | FTP | other *** search
/ Aminet 49 / Aminet 49 (2002)(GTI - Schatztruhe)[!][Jun 2002].iso / Aminet / dev / gui / Feelin.lha / Feelin / Groups.e < prev    next >
Text File  |  2002-03-14  |  3KB  |  115 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. PROC main()
  6.    DEF c,w
  7.  
  8.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  9.       c := ClientObject,
  10.          Child, w := WindowObject, FA_Window_Title,'Feelin : Groups',
  11.             Child, VGroup,
  12.                Child, HGroup, GroupFrame, FA_Frame_Title, 'Group Types', FA_Group_SameSize,TRUE,
  13.                   Child, HGroup, GroupFrame, FA_Frame_Title, 'Horizontal',
  14.                      Child, rectObj(),
  15.                      Child, rectObj(),
  16.                      Child, rectObj(),
  17.                   End,
  18.  
  19.                   Child, VGroup, GroupFrame, FA_Frame_Title, 'Vertical',
  20.                      Child, rectObj(),
  21.                      Child, rectObj(),
  22.                      Child, rectObj(),
  23.                   End,
  24.  
  25.                   Child, VGroup, GroupFrame, FA_Frame_Title, 'Array',
  26.                      Child, HGroup,
  27.                         Child, rectObj(),
  28.                         Child, rectObj(),
  29.                         Child, rectObj(),
  30.                      End,
  31.  
  32.                      Child, HGroup,
  33.                         Child, rectObj(),
  34.                         Child, rectObj(),
  35.                         Child, rectObj(),
  36.                      End,
  37.  
  38.                      Child, HGroup,
  39.                         Child, rectObj(),
  40.                         Child, rectObj(),
  41.                         Child, rectObj(),
  42.                      End,
  43.                   End,
  44.                End,
  45.  
  46.                Child, VGroup,
  47.                   Child, HGroup, GroupFrame, FA_Frame_Title, 'Different Weights',
  48.                      Child, textObj( '25 kg',[FA_Weight, 25, NIL]),
  49.                      Child, textObj( '50 kg',[FA_Weight, 50, NIL]),
  50.                      Child, textObj( '75 kg',[FA_Weight, 75, NIL]),
  51.                      Child, textObj('100 kg',[FA_Weight,100, NIL]),
  52.                   End,
  53.  
  54.                   Child, HGroup, GroupFrame, FA_Frame_Title, 'Fixed & Variable Sizes',
  55.                      Child, textObj('fixed',[FA_FixedWidth,TRUE, NIL]),
  56.                      Child, textObj('free'),
  57.                      Child, textObj('fixed',[FA_FixedWidth,TRUE, NIL]),
  58.                      Child, textObj('free'),
  59.                      Child, textObj('fixed',[FA_FixedWidth,TRUE, NIL]),
  60.                   End,
  61.  
  62.                   Child, HGroup, GroupFrame, FA_Frame_Title, 'Relative Sizes', FA_Group_RelSizing,TRUE,
  63.                      Child, textObj('1'),
  64.                      Child, textObj('12'),
  65.                      Child, textObj('123'),
  66.                      Child, textObj('1234'),
  67.                      Child, textObj('12345'),
  68.                   End,
  69.  
  70.                   Child, HGroup, GroupFrame, FA_Frame_Title, 'Same Width', FA_Group_SameWidth,TRUE,
  71.                      Child, textObj('1'),
  72.                      Child, textObj('12'),
  73.                      Child, textObj('123'),
  74.                      Child, textObj('1234'),
  75.                   End,
  76.                End,
  77.             End,
  78.          End,
  79.       End
  80.  
  81.       IF c
  82.          F_DoA(c,FM_Notify,[FA_Client_Signal,$1000,FV_Notify_Self,2,FM_Client_ReturnID,FV_Client_Quit])
  83.          F_DoA(w,FM_Notify,[FA_Window_CloseRequest,TRUE,FV_Notify_Client,2,FM_Client_ReturnID,FV_Client_Quit])
  84.          F_Set(w,FA_Window_Open,TRUE)
  85.  
  86.          WHILE F_DoA(c,FM_Client_WaitEvent,NIL) <> FV_Client_Quit DO NOP
  87.  
  88.          F_DisposeObj(c)
  89.       ENDIF
  90.  
  91.       CloseLibrary(feelinbase)
  92.    ELSE
  93.       WriteF('Unable to open feelin.library\n')
  94.    ENDIF
  95. ENDPROC
  96.  
  97. PROC textObj(name,tags=NIL)
  98.    RETURN   TextObject,
  99.             DontChain,
  100.             FA_FixedHeight,   TRUE,
  101.             TextFrame,
  102.             TextBack,
  103.             FA_Text,          name,
  104.             FA_Text_PreParse, '`c',
  105.             TAG_MORE,         tags,
  106.             End
  107. ENDPROC
  108. PROC rectObj()
  109.    RETURN   AreaObject,
  110.             DontChain,
  111.             TextFrame,
  112.             TextBack,
  113.             End
  114. ENDPROC
  115.